home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / demo / array.dem next >
Encoding:
Text File  |  2003-02-09  |  1.5 KB  |  88 lines
  1. /* ======================================================================== */
  2. /*  file: array.dem  */
  3. /*  Indices problems */
  4.  
  5. SUBSCRMAP:TRUE$
  6. /*
  7. THIS BATCH FILE ILLUSTRATES VARIOUS NEW ARRAY CAPABILITIES AVAILABLE
  8.  
  9. WHICH ARE COMPLETELY COMPATIBLE WITH THE EXISTING SCHEME.
  10.  
  11. MAPPING IN THIS CONTEXT MEANS DISTRIBUTE THE NAME OVER THE STRUCTURE 
  12.  
  13. INDICATED BY THE SUBSCRIPTS.
  14.  
  15. INCLUDED ARE IMPLIED MAPPING USING LISTS AS SUBSCRIPTS,
  16.  
  17. GENERALIZED ELEMENT EXTRACTION FROM LIST OR MATRIX STRUCTURES,
  18.  
  19. IMPLIED ASSIGNMENT MAPPING, AND RECURSIVE LIST STRUCTURES.  
  20.  
  21. COMPATIBILITY WITH HASHED ARRAYS AND DECLARED ARRAYS IS SHOWN.
  22.  
  23. FIRST CONSIDER USING LIST STRUCTURES AS SUBSCRIPTS. A,B, AND C
  24.  
  25. BELOW CAN BE ARRAYS, HASHED ARRAYS, LIST STRUCTURES, MATRICES OR 
  26.  
  27. UNDEFINED.
  28.  
  29. */
  30.  
  31.  
  32. (A[1]:FIRST,A[2]:SECOND);
  33. A[[1,2]],EVAL;
  34. L:[3,2,1];
  35. L[3];
  36. L[1];
  37. ''L[1];
  38. L[1],EVAL;
  39. MIDDLE&&MAT:MATRIX([Q,V],[W,U]);
  40. MAT[1];
  41. MAT[[1,2],[1,2]],EVAL;
  42. MAT[[1,2]],EVAL;
  43.  
  44. /*
  45. ASSIGNMENT MAPS CAN BE CARRIED OUT WITH "::" OR (''FOO):
  46.  
  47. */
  48. D[ [1,2] ]::99;
  49. D[1];
  50. (''MAT):0;
  51. Q;
  52. MAT;
  53. LL[''L]::L;
  54. LL[1];
  55.  
  56.  
  57.  
  58. /*
  59. RECURSIVE LIST STRUCTURES:
  60.  
  61. */
  62. X:[X,Y];
  63. Y:[Y,'X];
  64. H['X,'Y];
  65. %,EVAL;
  66. %,EVAL;
  67. %,EVAL;
  68.  
  69. /*
  70. MAPPING A FUNCTION ON A LIST STRUCTURE
  71. */
  72. FULLMAPL(FOO,[[A,B],[C,D]]);
  73. FULLMAPL(FUNC,'[AA+BB,'[AA,BB],[AA,BB],[3,4]]);
  74. DSL:'[AS+BS,[DS,ES],'[GS,HS],144];
  75. F(X):=X**2;
  76. FUNC:F$
  77. FULLMAPL(FUNC,DSL);
  78.  
  79.  
  80.  
  81. /*
  82. TO COME: SHAPING, GENERAL REDUCTION, GENERAL CONTRACTION OR EXPANSION
  83.  
  84. (INNER AND OUTER PRODUCTS), ARITHMETIC, THE WORLD, THE UNIVERSE
  85.  
  86. */
  87. FOOBAR;
  88.